home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / oisac2 / casio.bas < prev    next >
BASIC Source File  |  1994-03-01  |  4KB  |  80 lines
  1. 1 ' ******************************
  2. 2 ' **  Programme de transfert  **
  3. 3 ' **   CASIO FX <--> IBM PC   **
  4. 4 ' ** R‚alis‚ par BOURDIER Al. **
  5. 5 ' ******************************
  6. 6 ' ** ‚crit en GW BASIC V 3.22 **
  7. 7 ' ******************************
  8. 10 CLEAR
  9. 20 ON ERROR GOTO 420
  10. 30 PORT$="COM2:": ' Nom du port par d‚fault
  11. 40 CV$="5" : VT$="2400" : ' code vitesse casio par d‚fault puis ibm
  12. 44 KEY OFF
  13. 45 '
  14. 46 ' ****** DEBUT DU PROGRAMME *********
  15. 47 '
  16. 60 CLS:PRINT TAB(22);"***********************";TAB(22);"* TRANSFERT CASIO-IBM *";TAB(22);"***********************";TAB(0);CHR$(13);TAB(20);"Choix entre :";CHR$(13);CHR$(13);TAB(20);"1) SAUVEGARDE ( FX -> IBM )";
  17. 65 PRINT TAB(20);"2) CHARGER    ( IBM -> FX )";TAB(20);"3) VITESSE EN BAUDS";
  18. 70 PRINT CHR$(13);TAB(20);"4) SORTIR DU PROGRAMME";CHR$(13);CHR$(13);TAB(20);"     Votre choix ?"
  19. 80 A$=INKEY$:IF A$="" OR A$<"1" OR A$>"4" THEN 80
  20. 90 IF A$="4" THEN CLS:SYSTEM
  21. 100 IF A$<>"3" THEN 230
  22. 107 '
  23. 108 ' ********* VITESSE DE LA RS ***************
  24. 109 '
  25. 110 PRINT:INPUT"Vitesse en Bauds : ",VT$:IF LEN(VTS$)>4 THEN PRINTCHR$(7);:GOTO 110
  26. 120 CV$=""
  27. 130 IF VT$="" THEN VTS$="2400"
  28. 140 IF VT$="4800" THEN CV$="6"
  29. 150 IF VT$="2400" THEN CV$="5"
  30. 160 IF VT$="1200" THEN CV$="4"
  31. 170 IF VT$="600" THEN CV$="3"
  32. 180 IF VT$="300" THEN CV$="2"
  33. 190 IF VT$="150" THEN CV$="1"
  34. 200 IF CV$="" THEN PRINT CHR$(7);:GOTO 110
  35. 210 GOTO 60
  36. 227 '
  37. 228 ' ************* CHOIX DU FICHIER ****************
  38. 229 '
  39. 230 PRINT:IF A$="1" THEN PRINT "SAUVEGARDE : " ELSE PRINT "CHARGEMENT :"
  40. 231 INPUT"Nom du fichier avec le chemin : ",FIC$
  41. 240 OPEN PORT$+VT$+",n,8,1,rs,cs,ds,cd" AS #1:I=0
  42. 247 '
  43. 248 ' *********** SAUVEGARDE *************
  44. 249 '
  45. 250 IF A$="2" THEN 350
  46. 255 OPEN FIC$ FOR INPUT AS #2: CLOSE #2
  47. 256 PRINT CHR$(7)+CHR$(13);:INPUT "*** Fichier d‚j… ‚xistant *** Ecrase O/N ";R$:IF R$="O" OR R$="o" THEN 260 ELSE 60
  48. 260 OPEN FIC$ FOR OUTPUT AS #2
  49. 270 CLS:PRINT"Tapez sur la CASIO :":PRINT:PRINT"SAVE"+CHR$(34)+"COM0:"+CV$+",N,8,1,N,N,N,B"+CHR$(34)+" Puis [EXE]"+CHR$(13)+CHR$(13)+"Tapez puis lancez le programme suivant sur la CASIO …prŠs le transfert"+CHR$(13)+CHR$(13)+"10 OPEN "+CHR$(34);
  50. 280 PRINT"COM0:"+CV$+",N,8,1,N,N,N,B"+CHR$(34)+" AS #1: PRINT #1,CHR$(26): CLOSE":PRINT
  51. 290 LINE INPUT #1,A$
  52. 300 A=ASC(LEFT$(A$,1))
  53. 310 IF A=10 OR A=13 THEN A$=RIGHT$(A$,LEN(A$)-1):IF LEN(A$)>2 THEN 300
  54. 320 PRINT A$:I=1:PRINT #2,A$
  55. 330 IF ASC(RIGHT$(A$,1))=26 THEN PRINT:PRINT "******** FIN DU TRANSFERT CASIO --> IBM *******":CLOSE #1:CLOSE #2:GOTO 60
  56. 340 GOTO 290
  57. 347 '
  58. 348 ' *********** CHARGEMENT ***************
  59. 349 '
  60. 350 OPEN FIC$ FOR INPUT AS #2
  61. 360 CLS:PRINT"Tapez sur la CASIO : "+CHR$(13)++CHR$(13)+"LOAD"+CHR$(34)+"COM0:"+CV$+",N,8,1,N,N,N,B"+CHR$(34)+CHR$(13)+CHR$(13)+"Puis tapez sur [EXE] du CASIO, puis [RETOUR] sur l'IBM":PRINT
  62. 370 B$=INKEY$:IF B$="" THEN 370
  63. 380 IF EOF(2) THEN PRINT:INPUT "Tapez sur [BRK] de la CASIO puis [RETOUR] sur l'IBM",R:GOTO 60
  64. 390 LINE INPUT #2,CHAINE$:PRINT CHAINE$
  65. 400 PRINT #1,CHAINE$
  66. 410 GOTO 380
  67. 417 '
  68. 418 ' ****** TRAITEMENT DES ERREURS ******
  69. 419 '
  70. 420 IF ERR=57 AND ERL = 290 AND I=0 THEN RESUME 290
  71. 421 IF ERR=55 AND ERL=240 THEN CLOSE #1:RESUME 240
  72. 425 IF ERR=53 AND ERL = 255 THEN 260
  73. 430 IF ERR=53 THEN PRINTCHR$(7);CHR$(13);:INPUT"*** Fichier introuvable *** [RETOUR] pour suite ",R:RESUME 60
  74. 440 PRINT"ProblŠme : ERR = ";ERR;" ERL = ";ERL:END
  75. 444 '
  76. 445 ' ****************** fin du programme ***********************
  77. 446 '
  78. 450 ' Si vous lisez ceci c'est que vous avez fait un CTRL + PAUSE
  79. 460 ' Pour sortir tapez SYSTEM
  80.